perm filename TEST.F4[1,LCS] blob sn#414564 filedate 1979-01-27 generic text, type T, neo UTF8
00005		DIMENSION I(128)
00100		K='    !'+204
00120		J=K+2
00140		TYPE 2,J,K,J
00310		J=1
00332		K='    !'-40
00354	1	I(J)=K
00376		K=K+2
00400		J=J+1
00500		IF (J.LE.128)GO TO 1
00550		TYPE 2,I
01200	2	FORMAT(10A5)
01300		END